home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY8.PRG < prev    next >
Text File  |  1993-07-18  |  825b  |  36 lines
  1. for m.i = 1 to 22
  2.     m.form = "form" + alltrim(str(m.i))
  3.     m.dbfile = m.form + ".dbf"
  4.     for m.j = 0 to 13
  5.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  6.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  7.         ?m.scrfile
  8.         select 0
  9.         if not file(m.scrfile)
  10.             exit
  11.         endif
  12.         use &scrfile alias screen
  13.         go top
  14.         locate for screen.objtype=12
  15.         do while not eof()
  16.             m.picture = screen.picture
  17.             if at("Next Page", m.picture) > 0
  18.                 m.picture = "@*HN Ne\<xt Page"
  19.                 replace screen.picture with m.picture
  20.             endif
  21.             continue
  22.         enddo
  23.         go top
  24.         locate for screen.objtype=12
  25.         do while not eof()
  26.             m.picture = screen.picture
  27.             if at("Prev Page", m.picture) > 0
  28.                 m.picture = "@*HT Pre\<v Page"
  29.                 replace screen.picture with m.picture
  30.             endif
  31.             continue
  32.         enddo
  33.         use
  34.     endfor
  35. endfor
  36.